home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Celestin Apprentice 4
/
Apprentice-Release4.iso
/
Utilities
/
Text
/
OzTeX 1.9
/
PS-files
/
getinfo.ps
< prev
next >
Wrap
Text File
|
1994-11-15
|
3KB
|
122 lines
%!
% Returns device info to host.
initgraphics
/newline {
(\r) print flush % send carriage return
} def
/s40 { 40 string } def
statusdict begin
revision % int
product dup % string
(Linotype) eq
{ userdiskpercent % percent
diskstatus % free total
resolution % int
true % we are running on a Linotronic
}
{ false % we are running on some other device
} ifelse
end
% true or false currently on top of stack
{ (RESOLUTION = ) print s40 cvs print newline
(DISK STATUS = ) print s40 cvs print
( ) print s40 cvs print newline
(USER DISK % = ) print s40 cvs print newline
} if
(PRODUCT = ) print print newline
(REVISION = ) print s40 cvs print newline
(VERSION = ) print version print newline
version cvr 25.0 gt % PS version >= 25.0 ?
{
newline
currentpacking % bool
(CURRENT PACKING = ) print
s40 cvs print newline
newline
currentcacheparams % mark lower upper
(CURRENT CACHE PARAMS) print newline
counttomark
{ s40 cvs print newline }
repeat
pop % remove mark
} if
newline
(CACHE STATUS) print newline
cachestatus % bsize bmax msize mmax csize cmax blimit
(blimit = ) print s40 cvs print newline
(cmax = ) print s40 cvs print newline
(csize = ) print s40 cvs print newline
(mmax = ) print s40 cvs print newline
(msize = ) print s40 cvs print newline
(bmax = ) print s40 cvs print newline
(bsize = ) print s40 cvs print newline
newline
(VM STATUS) print newline
vmstatus % savelevel vmused vmmax
(vm max = ) print s40 cvs print newline
(vm used = ) print s40 cvs print newline
(save level = ) print s40 cvs print newline
newline
(DEFAULT MATRIX = ) print
matrix defaultmatrix % [ ? ? ? ? ? ? ]
dup 0 get s40 cvs print ( ) print
dup 1 get s40 cvs print ( ) print
dup 2 get s40 cvs print ( ) print
dup 3 get s40 cvs print ( ) print
dup 4 get s40 cvs print ( ) print
dup 5 get s40 cvs print ( ) print
newline
pop
/res 300 def
/oshift -10.7 def
% switch to TeX portrait coordinate system:
initgraphics
72 res div dup neg scale % units now device dots
res oshift res mul translate % move to TeX origin
newline
(TeX PORTRAIT MATRIX = ) print
matrix currentmatrix % [ ? ? ? ? ? ? ]
dup 0 get s40 cvs print ( ) print
dup 1 get s40 cvs print ( ) print
dup 2 get s40 cvs print ( ) print
dup 3 get s40 cvs print ( ) print
dup 4 get s40 cvs print ( ) print
dup 5 get s40 cvs print ( ) print
newline
pop
% switch to TeX landscape coordinate system:
initgraphics
90 rotate % rotate axes 90deg anticlockwise
72 res div dup neg scale % units now device dots
res dup translate % move to TeX origin
newline
(TeX LANDSCAPE MATRIX = ) print
matrix currentmatrix % [ ? ? ? ? ? ? ]
dup 0 get s40 cvs print ( ) print
dup 1 get s40 cvs print ( ) print
dup 2 get s40 cvs print ( ) print
dup 3 get s40 cvs print ( ) print
dup 4 get s40 cvs print ( ) print
dup 5 get s40 cvs print ( ) print
newline
pop